home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / editor / pt14l.lha / PasTeX_1.4 / Install.HD < prev    next >
Text File  |  1996-01-27  |  32KB  |  1,138 lines
  1. ; $VER: PasTeX 1.4 (21.12.95)
  2. ; Script to install PasTeX from CD-ROM
  3. ;
  4. ; commented out some lines due to the LITE version
  5. ; every change is introduced by a line ";LITE version:"
  6. ; Martin Hilpert (29.01.1996)
  7.  
  8. (complete 0)
  9. (set old_level @user-level)
  10.  
  11.  
  12.  
  13. ;
  14. ; strings
  15. ;
  16.  
  17. (set #ask-installdir
  18. (cat "Please choose a directory, where PasTeX should be installed."
  19.      "(Note: I will create a directory 'texmf' in your directory.)"
  20. ))
  21.  
  22. (set #ask-installdir-help
  23. (cat "You have to choose a directory, where the software will be copied."
  24.      "This directory must exist, please create one, if necessary. "
  25.      "E.g. if you choose Work: I will install TeX into Work:texmf"
  26. ))
  27.  
  28.  
  29. (set #ask-instmask
  30. ;LITE version: changed following line
  31. ;(cat "Which parts of the CD TeX installation should be installed"
  32. (cat "Which parts of the Lite TeX installation should be installed"
  33.      " on your harddisk?"
  34. ))
  35.  
  36. (set #ask-instmask-help
  37. (cat "Choose which parts of the TeX installation you need.\n\n"
  38.      "PasTeX programs:\n  Main TeX programs (initex, virtex, ShowDVI, DVIprint, SpecialHost, flib, lsfont)\n\n"
  39.      "TeX utilities:\n  Various usefull programs\n\n"
  40.      "TeX format files:\n  plain.fmt, lplain.fmt ...\n\n"
  41.      "TeX inputs:\n  LaTeX, style files, ...\n\n"
  42. ;LITE version: the following line could be commented out
  43.      "pk fonts:\n  Fonts for different resolutions/printer\n\n"
  44.      "Metafont programs:\n  programs to generate pk-fonts\n\n"
  45.      "Metafont font sources:\n  sources of the pk-files"
  46. ))
  47.  
  48. (set #copy-pt-progs
  49. (cat "Copy the core programs of PasTeX:"
  50. ))
  51.  
  52. (set #copy-pt-ger-locale
  53. (cat "Copy the german locale file for DVIprint and ShowDVI:"
  54. ))
  55.  
  56. (set #copy-pt-ita-locale
  57. (cat "Copy the italian locale file for DVIprint and ShowDVI:"
  58. ))
  59.  
  60. (set #copy-tfm
  61. (cat "Copy TFM-font files:"
  62. ))
  63.  
  64. (set #copy-rexx
  65. (cat "Copy ARexx scripts:"
  66. ))
  67.  
  68. (set #copy-rexx-namestruc
  69. (cat "Copy ARexx script 'namestruc' to REXX:"
  70. ))
  71.  
  72. (set #copy-config
  73. (cat "Copy config-files:"
  74. ))
  75.  
  76. (set #copy-icons
  77. (cat "Copy default-icons:"
  78. ))
  79.  
  80. (set #copy-ps
  81. (cat "Copy PostScript support files:"
  82. ))
  83.  
  84. (set #ask-texprgmask
  85. (cat "Which version of IniTeX/VirTeX would you like to install?"
  86. ))
  87.  
  88. (set #ask-texprgmask-help @askchoice-help
  89. )
  90.  
  91. (set #copy-req-lib
  92. (cat "Copy req.library:"
  93. ))
  94.  
  95. (set #copy-iff-lib
  96. (cat "Copy iff.library:"
  97. ))
  98.  
  99. (set #copy-post-lib
  100. (cat "Copy post.library:"
  101. ))
  102.  
  103. (set #help-req-lib
  104. (cat "ShowDVI needs the req.library for the file and color requester."
  105. ))
  106.  
  107. (set #help-iff-lib
  108. (cat "This library is needed for reading and writing IFF files."
  109. ))
  110.  
  111. (set #help-post-lib
  112. (cat "This library is needed for viewing Postscript pictures."
  113. ))
  114.  
  115.  
  116. (set #copy-tex-pool
  117. (cat "Copy TeX.pool file:"
  118. ))
  119.  
  120. (set #copy-tex-norm-progs
  121. (cat "Copy IniTeX/Virtex (small/68000):"
  122. ))
  123.  
  124. (set #copy-tex-big-progs
  125. (cat "Copy IniTeX/Virtex (big/68000):\n"
  126.      "(You have to rename the programs)"
  127. ))
  128.  
  129. (set #copy-tex-20-progs
  130. (cat "Copy IniTeX/Virtex (small/68020):\n"
  131.      "(You have to rename the programs)"
  132. ))
  133.  
  134. (set #copy-tex-big-20-progs
  135. (cat "Copy IniTeX/Virtex (big/68020):\n"
  136.      "(You have to rename the programs)"
  137. ))
  138.  
  139. (set #ask-texutil
  140. (cat "Which TeX utilities do you want to install:"
  141. ))
  142.  
  143. (set #ask-texutil-help @askoptions-help
  144. )
  145.  
  146. (set #ask-formats
  147. (cat "Which TeX format files do you want to install:"
  148. ))
  149.  
  150. (set #ask-formats-help @askoptions-help
  151. )
  152.  
  153. (set #ask-inputs
  154. (cat "Which TeX macros (additional to plainTeX and LaTeX) do you want to install:"
  155. ))
  156.  
  157. (set #ask-inputs-help @askoptions-help
  158. )
  159.  
  160. (set #ask-resolutions
  161. (cat "Which TeX pk-fonts do you want to install:"
  162. ))
  163.  
  164. (set #ask-resolutions-help @askoptions-help
  165. )
  166.  
  167. (set #ask-preview
  168. (cat "What set of preview-fonts do you want to install:"
  169. ))
  170.  
  171. (set #ask-preview-help @askchoice-help
  172. )
  173.  
  174. (set #ask-180
  175. (cat "What set of 180x180dpi fonts do you want to install:"
  176. ))
  177.  
  178. (set #ask-180-help @askchoice-help
  179. )
  180.  
  181. (set #ask-300
  182. (cat "What set of 300x300dpi fonts do you want to install:"
  183. ))
  184.  
  185. (set #ask-300-help @askchoice-help
  186. )
  187.  
  188. (set #ask-360
  189. (cat "What set of 360x360dpi fonts do you want to install:"
  190. ))
  191.  
  192. (set #ask-360-help @askchoice-help
  193. )
  194.  
  195. (set #ask-600
  196. (cat "What set of 600x600dpi fonts do you want to install:"
  197. ))
  198.  
  199. (set #ask-600-help @askchoice-help
  200. )
  201.  
  202. (set #ask-pkfax
  203. (cat "What set of 204x196dpi fax-fonts do you want to install:"
  204. ))
  205.  
  206. (set #ask-pkfax-help @askchoice-help
  207. )
  208.  
  209. (set #ask-callmf
  210. (cat "How would you like to have the automatical font generation:"
  211. ))
  212.  
  213. (set #ask-callmf-help 
  214. (cat "The PasTeX DVI-drivers supports a possibility to automatical call Metafont for"
  215.      "missing fonts. The ENV: variable CALLMF decide how Metafont will be called.\n\n"
  216.      "If there is no ENV:CALLMF, no fontcreation will be done.\n\n"
  217.      "If CALLMF points to MF:rexx/MakeBatch.rexx, a script will be created with an"
  218.      "entry for each missing font. If you call the script, all fonts which are missed"
  219.      "will be created.\n\n"
  220.      "If CALLMF points to MF:rexx/MakeTeXFont.rexx, each missing font will be created"
  221.      "immediatly. But this can take some time."
  222. ))
  223.  
  224. (set #startup-prompt
  225. (cat "I have to add some commands to your S:User-Startup."
  226. ))
  227.  
  228. (set #startup-help
  229. (cat "I have to add some commands to your S:User-Startup.\n\n"
  230.      "PasTeX needs some assigns to work:\n"
  231.      "TeX:   root directory of the TeX installation.\n"
  232.      "MF:    root directory of Metafont.\n"
  233.      "PKVol-assignments to the pk-font directories of the\n"
  234.      "CD-ROM. Needed for font-caching\n\n"
  235.      "Two path components are added too:\n"
  236.      "TeX:bin for the normal TeX programs/utilities\n"
  237.      "MF:bin  for the Metafont programs."
  238. ))
  239.  
  240. ;--------------------------------------------------------
  241.  
  242. ;
  243. ; copyfonts procedure
  244. ;
  245.  
  246. (procedure copyfonts
  247.   (makedir pkdestdir)
  248.   (set fntlst "(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5|cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10)")
  249.  
  250.   (if (= pkcopyopt 1)
  251.    ( ; then
  252.      ; small subset
  253.      (set fntpat (cat fntlst ".#?"))
  254.    )
  255.    ( ; else
  256.      ; all fonts (or no fonts at all!)
  257.      (set fntpat "#?")
  258.    )
  259.   )
  260.      
  261.   (if (<> pkcopyopt 0)
  262.    ( ; then 
  263.      ; there are fonts to copy
  264.      (foreach pksourcedir pkpat 
  265.        (if (= @each-type 2)
  266.         ( ; then directory
  267.           (copyfiles (source  (tackon pksourcedir @each-name))
  268.                      (dest    (tackon pkdestdir @each-name))
  269.                      (pattern fntpat))
  270.         )
  271.        )
  272.      )
  273.    )
  274.   )
  275. )
  276.  
  277.  
  278.  
  279.  
  280. ;--------------------------------------------------------
  281. ;--------------------------------------------------------
  282. ;--------------------------------------------------------
  283.  
  284.  
  285.  
  286. (set sourcedir (pathonly @icon))
  287.  
  288. (set target (askdir (prompt #ask-installdir)
  289.                     (help   #ask-installdir-help)
  290.                     (default "Work:")
  291.             )
  292. )
  293.  
  294. (set @default-dest (tackon target "texmf"))
  295. (set texbindir  (tackon @default-dest "bin"))
  296. (set formatdir  (tackon @default-dest "formats"))
  297. (set bigfmtdir  (tackon @default-dest "formats.big"))
  298. (set macdir     (tackon @default-dest "inputs"))
  299. (set fontsdir   (tackon @default-dest "fonts"))
  300. (set pkdir      (tackon fontsdir      "pk"))
  301. (set mfdir      (tackon @default-dest "metafont"))
  302. (set mfbindir   (tackon mfdir         "bin"))
  303.  
  304. (makedir @default-dest (infos))
  305.  
  306.  
  307. ;
  308. ; ---------------------------------------------------------------------------
  309. ;
  310. ; Welche Pakete sollen installiert werden?
  311. ;
  312. ; ---------------------------------------------------------------------------
  313. ;
  314.  
  315. (if (>= @user-level 1)
  316.  (set instmask (askoptions (choices "PasTeX programs"
  317.                                     "TeX utilities"
  318.                                     "TeX format files"
  319.                                     "TeX macros"
  320. ;LITE version: don't ask for fonts
  321.                                     "pk-fonts"
  322.                                     "Metafont programs"
  323.                                     "Metafont font sources"
  324.                            )
  325.                            (prompt #ask-instmask)
  326.                            (help   #ask-instmask-help)
  327. ;LITE version: changed (default 31) to (default 32)
  328. ;because Metafont needs the font sources to create missing fonts!
  329.                            (default 127)
  330.                )
  331.  )
  332. ;LITE version: changed (set instmask 31) to (set instmask 32)
  333.  (set instmask 127)
  334. )
  335.  
  336.  
  337.  
  338. ;
  339. ; ---------------------------------------------------------------------------
  340. ;
  341. ; Nun fuer alle zu installierenden Pakete diverse Fragen stellen
  342. ;
  343. ; ---------------------------------------------------------------------------
  344. ;
  345.  
  346.  
  347.  
  348. ;------PasTeX prg install----------
  349.  
  350. (if (IN instmask 0)
  351.       (     (if (>= @user-level 1)
  352.                   (     (set texprgmask (askoptions (choices "initex/virtex"
  353.                                                              "initex/virtex big-version"
  354.                                                              "initex/virtex 020-version"
  355.                                                              "initex/virtex big-020-version"
  356.                                                     )
  357.                                                     (prompt #ask-texprgmask)
  358.                                                     (help   #ask-texprgmask-help)
  359.                                                     (default 1)
  360.                                         )
  361.                         )
  362.                   )
  363.                   (set texprgmask 1)
  364.             )
  365.             (set installbigfmt 0)
  366.             (if (OR (IN texprgmask 1) (IN texprgmask 3))
  367.                   (     (set installbigfmt 1)
  368.                         (message "You have choosen a big version of initex and virtex.\n\n"
  369.                                  "So I will install the big-format files, too!"
  370.                         )
  371.                   )
  372.             )
  373.  
  374.       )
  375.       (    (set texprgmask 0)
  376.            (set installbigfmt 0)
  377.       )
  378.  
  379. )
  380.   
  381.  
  382.  
  383. ;------Utilities-------------------
  384. (if (IN instmask 1)
  385.  ( ; then
  386.    (user 2)
  387.    (set texutilmask (askoptions (prompt #ask-texutil)
  388.                                 (help #ask-texutil-help)
  389.                                 (choices        "bibtex"
  390.                                                 "bm2font"
  391.                                                 "c++2latex"
  392.                                                 "dvi2tty"
  393.                                                 "dvidvi"
  394.                                                 "dvilj2p"
  395.                                                 "dvips"
  396.                                                 "dvips (68040 version)"
  397.                                                 "dvitype"
  398.                                                 "lacheck (LaTeX check)"
  399.                                                 "fig / fig2dev / transfig"
  400.                                                 "makeindex"
  401.                                                 "pbmtopk / pktopbm"
  402.                                 )
  403.                                 (default 0)
  404.                     )
  405.    )
  406.    (user old_level)
  407.  )
  408.  ( ; else
  409.    (set texutilmask 0)
  410.  )
  411. )
  412.  
  413.  
  414. ;------TeX formats------------------
  415. (if (IN instmask 2)
  416.  ( ; then
  417.    (user 2)
  418.    (set formatmask (askoptions  (prompt #ask-formats)
  419.                                 (help   #ask-formats-help)
  420.                                 (choices "plain   (plain, English)"
  421.                                          "gplain  (plain, German)"
  422.                                          "lplain  (LaTeX 2.09, English)"
  423.                                          "glplain (LaTeX 2.09, German)"
  424.                                          "latex   (LaTeX2e, English+German)"
  425.                                 )
  426. ;LITE version: (default 19) instead of (default 5) :
  427.                                 (default 19)
  428.                )
  429.    )
  430.  
  431.   (if (IN formatmask 4)
  432.    (message "You have choosen the LaTeX2e format files.\n\n" 
  433.             "In order to use these files, you also have to install the LaTeX2e macros!"
  434.    )
  435.   )
  436.  
  437.    (user old_level)
  438.  )
  439.  ( ; else
  440.    (set formatmask 0)
  441.  )
  442. )
  443.  
  444.  
  445. ;------TeX macros------------------
  446. (if (IN instmask 3)
  447.  ( ; then
  448.    (user 2)
  449.  
  450.    (set macdef 0)
  451.    (if (IN formatmask 4)
  452.     (set macdef 1)
  453.    )
  454.  
  455.    (set inputs (askoptions  (prompt #ask-inputs)
  456.                             (help   #ask-inputs-help)
  457.                             (choices    "all LaTeX2e macros"
  458.                                         "a4 (old LaTeX)"
  459.                                         "dinbrief"
  460.                                         "epic"
  461.                                         "eepic"
  462.                                         "script"
  463.                                         "subeqn"
  464.                                         "supertab"
  465.                                         "array"
  466.                                         "docstrip"
  467.                                         "ftnright"
  468.                                         "multicol"
  469.                                         "nfss"
  470.                                         "theorem"
  471.                                         "verbatim"
  472.                            )
  473.                            (default macdef)
  474.                )
  475.    )
  476.  
  477.   (if (IN inputs 0)
  478.    (message "You have choosen the LaTeX2e macro files.\n\n" 
  479. ;LITE version: replaced following text:
  480. ;           "In order to use these files, you have to change the TeX configuration."
  481. ;           "See the difference between TeX:config/TeX.cnf and TeX-latex2e.cnf.\n\n"
  482. ;           "You have to use the other TEXINPUTS line.\n\n"
  483. ;           "If you have done this, you can call LaTeX2e with:\n"
  484.             "The TeX configuration is already changed in this version."
  485.             "See the difference between TeX:config/TeX.cnf and TeX-latex209.cnf.\n\n"
  486.             "You can call LaTeX2e with:\n"
  487. ;LITE version: end of changed text.
  488.             "virtex &latex\n\n\n"
  489.             "If you get problems with the TeX capacity, use virtex-big."
  490.    )
  491.   )
  492.  
  493.    (user old_level)
  494.  
  495.  )
  496.  ( ; else
  497.    (set inputs 0)
  498.  )
  499. )
  500.  
  501. ;------pk-fonts--------------------
  502. (if (IN instmask 4)
  503.  (
  504.    (user 2)
  505.    (set resomask (askoptions (prompt #ask-resolutions)
  506.                              (help   #ask-resolutions-help)
  507.                              (choices   "preview"
  508.                                         "180x180 dpi (e.g. NEC P6 draft)"
  509.                                         "300x300 dpi (e.g. HP DeskJet)"
  510.                                         "360x360 dpi (e.g. NEC P6 high quality)"
  511.                                         "600x600 dpi (e.g. LaserJet 4)"
  512.                                         "204x196 dpi (FAX resolution)"
  513.                              )
  514.                              (default 1)
  515.                  )
  516.    )
  517.    (user old_level)
  518.  
  519.    ; preview fonts
  520.    (if (IN resomask 0)
  521.     ( ; then
  522.       (set pkprev     (askchoice (prompt #ask-preview)
  523.                                  (help   #ask-preview-help)
  524.                                  (choices "none (use font caching)"
  525.                                           "only a small subset (use font caching)"
  526. ;LITE version: no fonts
  527. ;                                         "all fonts (of this CD)"
  528.                                  )
  529.                                  (default 0)
  530.                       )
  531.       )
  532.     )
  533.    )
  534.    
  535.    ; 180x180
  536.    (if (IN resomask 1)
  537.     ( ; then
  538.       (set pk180    (askchoice (prompt #ask-180)
  539.                                (help   #ask-180-help)
  540.                                 (choices "none (use font caching)"
  541.                                          "only a small subset (use font caching)"
  542. ;LITE version: no fonts
  543. ;                                        "all fonts (of this CD)"
  544.                                 )
  545.                                 (default 0)
  546.                      )
  547.       )
  548.     )
  549.    )
  550.    
  551.    ; 300x300
  552.    (if (IN resomask 2)
  553.     ( ; then
  554.       (set pk300     (askchoice (prompt #ask-300)
  555.                                 (help   #ask-300-help)
  556.                                 (choices "none (use font caching)"
  557.                                          "only a small subset (use font caching)"
  558. ;LITE version: no fonts
  559. ;                                        "all fonts (of this CD)"
  560.                                 )
  561.                                 (default 0)
  562.                      )
  563.       )
  564.     )
  565.    )
  566.    
  567.    ; 360x360
  568.    (if (IN resomask 3)
  569.     ( ; then
  570.       (set pk360     (askchoice (prompt #ask-360)
  571.                                 (help   #ask-360-help)
  572.                                 (choices "none (use font caching)"
  573.                                          "only a small subset (use font caching)"
  574. ;LITE version: no fonts
  575. ;                                        "all fonts (of this CD)"
  576.                                 )
  577.                                 (default 0)
  578.                      )
  579.       )
  580.     )
  581.    )
  582.  
  583.    
  584.    ; 600x600
  585.    (if (IN resomask 4)
  586.     ( ; then
  587.       (set pk600     (askchoice (prompt #ask-600)
  588.                                 (help   #ask-600-help)
  589.                                 (choices "none (use font caching)"
  590.                                          "only a small subset (use font caching)"
  591. ;LITE version: no fonts
  592. ;                                        "all fonts (of this CD)"
  593.                                 )
  594.                                 (default 0)
  595.                      )
  596.       )
  597.     )
  598.    )
  599.    
  600.    ; 204x196
  601.    (if (IN resomask 5)
  602.     ( ; then
  603.       (set pkfax     (askchoice (prompt #ask-pkfax)
  604.                                 (help   #ask-pkfax-help)
  605.                                 (choices "none (use font caching)"
  606.                                          "only a small subset (use font caching)"
  607. ;LITE version: no fonts
  608. ;                                        "all fonts (of this CD)"
  609.                                 )
  610.                                 (default 0)
  611.                      )
  612.       )
  613.     )
  614.    )
  615.  )
  616. )
  617.  
  618. ;------mf progs--------------------
  619. (if (IN instmask 5)
  620.  ( ; then
  621.    (set callmf (askchoice (prompt  #ask-callmf)
  622.                           (help    #ask-callmf-help)
  623.                           (choices "no automatical font creation"
  624.                                    "create a batchfile for font creation"
  625.                                    "create missing fonts immediately"
  626.                           )
  627.                           (default 2)
  628.                )
  629.    )
  630.  )
  631. )
  632.  
  633. ;------mf fnt source---------------
  634.  
  635. ; hier gibt's nichts zu fragen
  636.  
  637.  
  638.  
  639. ;
  640. ; ---------------------------------------------------------------------------
  641. ;
  642. ; Nun die Pakete wirklich installieren.
  643. ; Hier nun keine User-Aktionen!
  644. ;
  645. ; ---------------------------------------------------------------------------
  646. ;
  647.  
  648.  
  649. ;------PasTeX prg install----------
  650. (if (IN instmask 0)
  651.  (
  652.   (set texbindir (tackon @default-dest "bin"))
  653.   (copyfiles (prompt  #copy-pt-progs)
  654.              (source  (tackon sourcedir "bin"))
  655.              (choices "ShowDVI" "DVIprint" "flib" "SpecialHost" "PToFront" "lsfont")
  656.              (dest    texbindir)
  657.              (infos)
  658.   )
  659.   (copyfiles (source (tackon sourcedir "bin.info"))
  660.              (dest   @default-dest)
  661.   )
  662.   (makedir   (tackon texbindir "catalogs"))
  663.   (copyfiles (prompt #copy-pt-ger-locale)
  664.              (source (tackon sourcedir "bin/catalogs/deutsch"))
  665.              (dest   (tackon texbindir "catalogs/deutsch"))
  666.              (all)
  667.   )
  668.   (copyfiles (prompt #copy-pt-ita-locale)
  669.              (source (tackon sourcedir "bin/catalogs/italiano"))
  670.              (dest   (tackon texbindir "catalogs/italiano"))
  671.              (all)
  672.   )
  673.  
  674.   (makedir   fontsdir)
  675.   (makedir   (tackon fontsdir "pk"))
  676.   (makedir   (tackon fontsdir "vf"))
  677.   (makedir   (tackon fontsdir "afm"))
  678.   (makedir   (tackon fontsdir "type1"))
  679.   (copyfiles (prompt #copy-tfm)
  680.              (source (tackon (tackon sourcedir "fonts") "tfm"))
  681.              (dest   (tackon fontsdir "tfm"))
  682.              (all)
  683.   )
  684.   
  685.   (copyfiles (prompt #copy-rexx)
  686.              (source sourcedir)
  687.              (dest   @default-dest)
  688.              (choices "rexx")
  689.              (infos)
  690.   )
  691.   
  692.   (copyfiles (prompt  #copy-rexx-namestruc)
  693.              (source  (tackon sourcedir "rexx"))
  694.              (dest    "rexx:")
  695.              (choices "namestruc")
  696.   )
  697.   
  698.   (copyfiles (prompt #copy-config)
  699.              (source sourcedir)
  700.              (dest   @default-dest)
  701.              (choices "config")
  702.              (infos)
  703.   )
  704.   
  705.   (copyfiles (prompt #copy-ps)
  706.              (source sourcedir)
  707.              (dest   @default-dest)
  708.              (choices "ps")
  709.   )
  710.   
  711.   (copyfiles (prompt #copy-icons)
  712.              (source sourcedir)
  713.              (dest   @default-dest)
  714.              (choices "icons")
  715.              (infos)
  716.   )
  717.   
  718.   (copylib (prompt #copy-req-lib)
  719.            (help   #help-req-lib)
  720.            (source (tackon (tackon sourcedir "libs") "req.library"))
  721.            (dest   "LIBS:")
  722.            (optional "nofail")
  723.            (confirm)
  724.   )
  725.   
  726.   (copylib (prompt #copy-iff-lib)
  727.            (help   #help-iff-lib)
  728.            (source (tackon (tackon sourcedir "libs") "iff.library"))
  729.            (dest   "LIBS:")
  730.            (optional "nofail")
  731.            (confirm)
  732.   )
  733.   
  734.   (copylib (prompt #copy-post-lib)
  735.            (help   #help-post-lib)
  736.            (source (tackon (tackon sourcedir "libs") "post.library"))
  737.            (dest   "LIBS:")
  738.            (optional "nofail")
  739.            (confirm)
  740.   )
  741.   
  742.   (if (<> texprgmask 0)
  743.    (
  744.     (copyfiles (prompt  #copy-tex-pool)
  745.                (source  (tackon sourcedir "pool"))
  746.                (dest    (tackon @default-dest "pool"))
  747.                (choices "tex.pool")
  748.     )
  749.    )
  750.   )
  751.  
  752.   (if (IN texprgmask 0)
  753.    (
  754.     (copyfiles (prompt #copy-tex-norm-progs)
  755.                (source (tackon sourcedir "bin"))
  756.                (choices "initex" "virtex")
  757.                (dest   texbindir)
  758.                (infos)
  759.     )
  760.   ))
  761.    
  762.   (if (IN texprgmask 1)
  763.    (
  764.     (copyfiles (prompt #copy-tex-big-progs)
  765.                (source (tackon sourcedir "bin"))
  766.                (choices "initex-big" "virtex-big")
  767.                (dest   texbindir)
  768.                (infos)
  769.                (optional)
  770.     )
  771.   ))
  772.    
  773.   (if (IN texprgmask 2)
  774.    (
  775.     (copyfiles (prompt #copy-tex-20-progs)
  776.                (source (tackon sourcedir "bin"))
  777.                (choices "initex-20" "virtex-20")
  778.                (dest   texbindir)
  779.                (infos)
  780.                (optional)
  781.     )
  782.   ))
  783.    
  784.   (if (IN texprgmask 3)
  785.    (
  786.     (copyfiles (prompt #copy-tex-big-20-progs)
  787.                (source (tackon sourcedir "bin"))
  788.                (choices "initex-big-20" "virtex-big-20")
  789.                (dest   texbindir)
  790.                (infos)
  791.                (optional)
  792.     )
  793.   ))
  794.    
  795.  )
  796. )
  797.  
  798.  
  799. (complete 4)
  800.  
  801. ;------Utilities-------------------
  802.  
  803. (set n 0)
  804. (set texutilpat "(%")
  805. (while (set texutil (select n "bibtex"
  806.                               "bm2font"
  807.                               "c++2latex"
  808.                               "dvi2tty"
  809.                               "dvidvi"
  810.                               "dvilj2p"
  811.                               "dvips"
  812.                               "dvips040"
  813.                               "dvitype"
  814.                               "lacheck"
  815.                               "fig|fig2dev|transfig"
  816.                               "makeindex"
  817.                               "pbmtopk|pktopbm"
  818.                               ""
  819.                      )
  820.        )
  821. (
  822.     (if (IN texutilmask n)
  823.     (
  824.         (set texutilpat (cat texutilpat "|" texutil))
  825.     ))
  826.     (set n (+ n 1))
  827. ))
  828.  
  829. (copyfiles (source (tackon sourcedir "bin"))
  830.            (dest texbindir)
  831.            (pattern (cat texutilpat ")")))
  832.  
  833. (if (OR (IN texutilmask 6) (IN texutilmask 7))
  834.       (
  835.             (copyfiles (source (tackon (tackon sourcedir "bin") "afm2tfm"))
  836.                        (dest texbindir)
  837.             )
  838.             (copyfiles (source (tackon (tackon (tackon sourcedir "fonts") "tfm") "PStfms"))
  839.                        (dest   (tackon (tackon fontsdir "tfm") "PStfms"))
  840.                        (all)
  841.             )
  842.             (copyfiles (source (tackon (tackon (tackon sourcedir "fonts") "vf") "PSvfs"))
  843.                        (dest   (tackon (tackon fontsdir "vf") "PSvfs"))
  844.                        (all)
  845.             )
  846.       )
  847. )
  848.  
  849.   
  850.  
  851. (complete 7)
  852.  
  853.  
  854. ;------TeX formats------------------
  855. (if (<> formatmask 0) 
  856.  ( ; then
  857.    (set n 0)
  858.    (set formatpat "(%")
  859.    (while (set format  (select n "plain.fmt|plain.log"
  860.                                  "gplain.fmt|gplain.log"
  861.                                  "lplain.fmt|lplain.log"
  862.                                  "glplain.fmt|glplain.log"
  863.                                  "latex.fmt|latex.log"
  864.                                  ""
  865.                        )
  866.           )
  867.    (
  868.       (if (IN formatmask n)
  869.       (
  870.          (set formatpat (cat formatpat "|" format))
  871.       ))
  872.       (set n (+ n 1))
  873.    ))
  874.  
  875.    (set formatpat (cat formatpat ")"))
  876.  
  877.    (if (= installbigfmt 1)
  878.      (copyfiles (source  (tackon sourcedir "formats.big"))
  879.                 (dest    bigfmtdir)
  880.                 (pattern formatpat))
  881.    )
  882.  
  883.    (copyfiles (source  (tackon sourcedir "formats"))
  884.               (dest    formatdir)
  885.               (pattern formatpat))
  886.  
  887.  
  888.  )
  889. )
  890.  
  891.  
  892. (complete 10)
  893.  
  894.  
  895.  
  896. ;------TeX macros------------------
  897. (if (IN instmask 3)
  898.  (
  899.   (set lamacdir (tackon macdir "latex209"))
  900.   (set mimacdir (tackon macdir "misc"))
  901.   
  902.   (makedir macdir (infos))
  903.   (makedir lamacdir (infos))
  904.   (makedir mimacdir (infos))
  905.  
  906.   ; sollen die LaTeX2e Makros installiert werden?
  907.   (if (IN inputs 0)
  908.    (
  909.         (makedir (tackon macdir "latex") (infos))
  910.         (makedir (tackon macdir "latex/unpacked") (infos))
  911.    )
  912.   )
  913.   
  914.  
  915.   ; erstmal die normalen Macros kopieren, die immer kopiert werden
  916.   (copyfiles (source   (tackon sourcedir "inputs"))
  917.              (dest     macdir)
  918.              (pattern  "#?.(tex|sty|one|two|hyphen)"))
  919.              
  920.   (copyfiles (source   (tackon (tackon sourcedir "inputs") "misc"))
  921.              (dest     mimacdir)
  922.              (all))
  923.              
  924.   (copyfiles (source   (tackon (tackon sourcedir "inputs") "hyphenation"))
  925.              (dest     (tackon macdir "hyphenation"))
  926.              (all))
  927.              
  928.   (copyfiles (source   (tackon (tackon (tackon sourcedir "inputs") "latex209") "general"))
  929.              (dest     (tackon lamacdir "general"))
  930.              (all))
  931.              
  932.   (copyfiles (source   (tackon (tackon (tackon sourcedir "inputs") "latex209") "sty"))
  933.              (dest     (tackon lamacdir "sty"))
  934.              (all))
  935.              
  936.  
  937.   (set n 0)
  938.   (while (set macrodir (select n "latex/unpacked"
  939.                                  "a4"
  940.                                  "dinbrief"
  941.                                  "epic"
  942.                                  "eepic"
  943.                                  "script"
  944.                                  "subeqn"
  945.                                  "supertab"
  946.                                  "distribs/array"
  947.                                  "distribs/doc"
  948.                                  "distribs/ftnright"
  949.                                  "distribs/multicol"
  950.                                  "distribs/nfss"
  951.                                  "distribs/theorem"
  952.                                  "distribs/verbatim"
  953.                                  ""
  954.                      )
  955.          )
  956.   (
  957.       (if (IN inputs n)
  958.        (
  959.          (if (> n 7)
  960.             (makedir (tackon macdir "distribs"))
  961.          )
  962.          (if (= n 0)
  963.             (makedir (tackon macdir "latex"))
  964.          )
  965.          (copyfiles (source (tackon (tackon sourcedir "inputs") macrodir))
  966.                     (dest   (tackon macdir macrodir)
  967.                     (all))
  968.          )
  969.        )
  970.       )
  971.       (set n (+ n 1))
  972.   ))
  973.  
  974.  
  975.  )
  976. )
  977.  
  978. (complete 30)
  979.  
  980.  
  981. ;------pk-fonts--------------------
  982. (if (IN instmask 4)
  983.  ( ; then
  984.    (makedir fontsdir)
  985.    (makedir pkdir)
  986.    
  987.    ; preview fonts
  988.    (if (IN resomask 0)
  989.     ( ; then
  990.       (set pkdestdir   (tackon pkdir "amiga"))
  991.       (set pksourcedir (tackon sourcedir "fonts/pk/amiga"))
  992.       (set pkcopyopt   pkprev)
  993.       (set pkpat       "#[0-9]")
  994.       (copyfonts)
  995.     )
  996.    )
  997.    ; 180 fonts
  998.    (if (IN resomask 1)
  999.     ( ; then
  1000.       (set pkdestdir (tackon pkdir "nec"))
  1001.       (set pksourcedir (tackon sourcedir "fonts/pk/nec"))
  1002.       (set pkcopyopt   pk180)
  1003.       (set pkpat       "#[0-9]")
  1004.       (copyfonts)
  1005.     )
  1006.    )
  1007.    ; 300 fonts
  1008.    (if (IN resomask 2)
  1009.     ( ; then
  1010.       (set pkdestdir (tackon pkdir "deskjet"))
  1011.       (set pksourcedir (tackon sourcedir "fonts/pk/deskjet"))
  1012.       (set pkcopyopt   pk300)
  1013.       (set pkpat       "#[0-9]")
  1014.       (copyfonts)
  1015.     )
  1016.    )
  1017.    ; 360 fonts
  1018.    (if (IN resomask 3)
  1019.     ( ; then
  1020.       (set pkdestdir (tackon pkdir "nechi"))
  1021.       (set pksourcedir (tackon sourcedir "fonts/pk/nechi"))
  1022.       (set pkcopyopt   pk360)
  1023.       (set pkpat       "#[0-9]")
  1024.       (copyfonts)
  1025.     )
  1026.    )
  1027.    ; 600 fonts
  1028.    (if (IN resomask 4)
  1029.     ( ; then
  1030.       (set pkdestdir (tackon pkdir "ljfour"))
  1031.       (set pksourcedir (tackon sourcedir "fonts/pk/ljfour"))
  1032.       (set pkcopyopt   pk600)
  1033.       (set pkpat       "#[0-9]")
  1034.       (copyfonts)
  1035.     )
  1036.    )
  1037.    ; 204x196 fonts
  1038.    (if (IN resomask 5)
  1039.     ( ; then
  1040.       (set pkdestdir (tackon pkdir "fax"))
  1041.       (set pksourcedir (tackon sourcedir "fonts/pk/fax"))
  1042.       (set pkcopyopt   pkfax)
  1043.       (set pkpat       "#[0-9]")
  1044.       (copyfonts)
  1045.     )
  1046.    )
  1047.  )
  1048. )
  1049.  
  1050. (complete 80)
  1051.  
  1052.  
  1053. ;------mf progs--------------------
  1054. (if (IN instmask 5)
  1055.  ( ; then
  1056.    (makedir mfdir (infos))
  1057.    (copyfiles (source (tackon sourcedir "metafont"))
  1058.               (dest   mfdir)
  1059.               (pattern "(ReadMe|bases|bin|doc|pool|config|rexx|ENV)")
  1060.               (infos)
  1061.    )
  1062.    (if (= callmf 1)
  1063.     ( ; then batch
  1064.       (copyfiles (source (tackon sourcedir "metafont/ENV"))
  1065.                  (dest   "ENV:")
  1066.                  (choices "CALLMF-batch")
  1067.                  (newname "CALLMF")
  1068.       )
  1069.       (copyfiles (source (tackon sourcedir "metafont/ENV"))
  1070.                  (dest   "ENVARC:")
  1071.                  (choices "CALLMF-batch")
  1072.                  (newname "CALLMF")
  1073.       )
  1074.     )
  1075.    )
  1076.    (if (= callmf 2)
  1077.     ( ; then immediately
  1078.       (copyfiles (source (tackon sourcedir "metafont/ENV"))
  1079.                  (dest   "ENV:")
  1080.                  (choices "CALLMF"))
  1081.       (copyfiles (source (tackon sourcedir "metafont/ENV"))
  1082.                  (dest   "ENVARC:")
  1083.                  (choices "CALLMF"))
  1084.    )
  1085.   )
  1086.  )
  1087. )
  1088.  
  1089. (complete 85)
  1090.  
  1091.  
  1092. ;------mf fnt source---------------
  1093. (if (IN instmask 6)
  1094.  ( ; then
  1095.    (makedir mfdir (infos))
  1096.    (copyfiles (source (tackon sourcedir "metafont/inputs"))
  1097.               (dest   (tackon mfdir "inputs"))
  1098.               (all)
  1099.               (infos)
  1100.    )
  1101.  )
  1102. )
  1103.  
  1104.  
  1105. (complete 99)
  1106.  
  1107. (if (IN instmask 5)
  1108.     (startup @app-name (prompt  #startup-prompt)
  1109.                        (help    #startup-help)
  1110.                        (command (cat "Assign TeX: \"" @default-dest "\"\n"))
  1111.                        (command (cat "Assign MF: \"" mfdir "\"\n"))
  1112.                        (command (cat "Assign PKVol-amiga: \"" (tackon sourcedir "fonts/pk/amiga") "\" DEFER\n"))
  1113.                        (command (cat "Assign PKVol-nec: \"" (tackon sourcedir "fonts/pk/nec") "\" DEFER\n"))
  1114.                        (command (cat "Assign PKVol-deskjet: \"" (tackon sourcedir "fonts/pk/deskjet") "\" DEFER\n"))
  1115.                        (command (cat "Assign PKVol-nechi: \"" (tackon sourcedir "fonts/pk/nechi") "\" DEFER\n"))
  1116.                        (command (cat "Assign PKVol-ljfour: \"" (tackon sourcedir "fonts/pk/ljfour") "\" DEFER\n"))
  1117.                        (command (cat "Assign PKVol-fax: \"" (tackon sourcedir "fonts/pk/fax") "\" DEFER\n"))
  1118.                        (command "Path TeX:bin MF:bin ADD")
  1119.     )
  1120.     (startup @app-name (prompt  #startup-prompt)
  1121.                        (help    #startup-help)
  1122.                        (command (cat "Assign TeX: \"" @default-dest "\"\n"))
  1123.                        (command (cat "Assign PKVol-amiga: \"" (tackon sourcedir "fonts/pk/amiga") "\" DEFER\n"))
  1124.                        (command (cat "Assign PKVol-nec: \"" (tackon sourcedir "fonts/pk/nec") "\" DEFER\n"))
  1125.                        (command (cat "Assign PKVol-deskjet: \"" (tackon sourcedir "fonts/pk/deskjet") "\" DEFER\n"))
  1126.                        (command (cat "Assign PKVol-nechi: \"" (tackon sourcedir "fonts/pk/nechi") "\" DEFER\n"))
  1127.                        (command (cat "Assign PKVol-ljfour: \"" (tackon sourcedir "fonts/pk/ljfour") "\" DEFER\n"))
  1128.                        (command (cat "Assign PKVol-fax: \"" (tackon sourcedir "fonts/pk/fax") "\" DEFER\n"))
  1129.                        (command "Path TeX:bin ADD")
  1130.     )
  1131. )
  1132.  
  1133. (complete 100)
  1134.  
  1135.  
  1136. (exit)
  1137.  
  1138.